CREATE TABLE û instrukcja i CONSTRAINT û przyk│ad klauzuli
W tym przyk│adzie tworzona jest nowa tabela o nazwie TaTabela zawieraj╣ca dwa pola typu Text.
Sub CreateTableX1()
Dim dbs As Database
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Utw≤rz tabelΩ zawieraj╣c╣ dwa pola typu Text.
dbs.Execute "CREATE TABLE TaTabela " _
& "(FirstName CHAR, LastName CHAR);"
dbs.Close
End Sub
W tym przyk│adzie tworzona jest nowa tabela o nazwie MojaTabela zawieraj╣ca dwa pola typu Text, pole typu Date/Time oraz unikatowy indeks sk│adaj╣cy siΩ ze wszystkich trzech p≤l.
Sub CreateTableX2()
Dim dbs As Database
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Utw≤rz tabelΩ zawieraj╣c╣ trzy pola oraz
' unikatowy indeks sk│adaj╣cy siΩ ' ze wszystkich tych p≤l.
dbs.Execute "CREATE TABLE MojaTabela " _
& "(FirstName CHAR, LastName CHAR, " _
& "DataUrodzenia DATETIME, " _
& "CONSTRAINT MojeOgraniczenie UNIQUE " _
& "(ImiΩ, Nazwisko, DataUrodzenia));"
dbs.Close
End Sub
W tym przyk│adzie tworzona jest nowa tabela zawieraj╣ca dwa pola typu Text oraz pole typu Integer. Pole SSN jest kluczem podstawowym.
Sub CreateTableX3()
Dim dbs As Database
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Utw≤rz tabelΩ zawieraj╣c╣ trzy pola
' oraz klucz podstawowy.
dbs.Execute "CREATE TABLE NowaTabela " _
& "(FirstName CHAR, LastName CHAR, " _
& "SSN INTEGER CONSTRAINT MojeOgrPola" _
& "PRIMARY KEY);"
dbs.Close
End Sub